home *** CD-ROM | disk | FTP | other *** search
/ Chip 2002 July / 07_02.iso / software / xq-xsetup / files / setup.exe / {app} / plugins / XQ WinNT Winreg Remote 1.xpl < prev    next >
Text File  |  2000-11-12  |  2KB  |  65 lines
  1. "FILE"="Xteq Systems X-Setup Plugin 6.0"
  2. "TYPE"="6"
  3. "COUNT"="1"
  4. "UIPATH"="Network\Security\General"
  5. "NAME"="Remote Registry Access"
  6. "VERSION"="1.13"
  7. "OSVERSION"="01000"
  8. "LANGUAGE"="VBScript"
  9. "TEXT 1"="Allow EVERYBODY to connect to registry"
  10. "DESCRIPTION 1"="Windows is able to connect to the registry on other computers. Although this makes it possible for the administrator to make some changes to this computer from his machine, it can also be a security problem."
  11. "DESCRIPTION 2"="For example, a hacker could manipulate your registry so every document that is opened is saved in a hidden directory. This hidden directory can then be viewed for useful information."
  12. "DESCRIPTION 3"="If this option is disabled, only Administrators can connect to your machine by default."
  13. "DESCRIPTION 4"=" If the option is enabled, EVERYBODY can connect to your registry can manipulate it."
  14. "AUTHOR"="Xteq Systems"
  15. "CONTACTURL"="http://www.xteq.com"
  16. "COPYRIGHT"="Copyright ⌐ Xteq Systems - All Rights Reserved"
  17. "COMMENT 1"=" "
  18.  
  19.  
  20. sPath="HKLM\System\CurrentControlSet\Control\SecurePipeServers\winreg"
  21. sPath2="HKLM\System\CurrentControlSet\Control\SecurePipeServers\winreg\AllowedPaths"
  22. Sub Plugin_Initialize 
  23.     if RegPathExists(sPath) then
  24.        SetUIElement 1,false
  25.     else
  26.        SetUIElement 1,true
  27.     end if
  28. End Sub
  29.  
  30. Sub Plugin_CheckData(ElementIndex)
  31. End Sub
  32.  
  33. Sub Plugin_Apply(ElementIndex,ElementSubIndex)
  34.  b=GetUIElement(1)
  35.  if b=false then
  36.  
  37.   'Restrict access
  38.   Call RegWriteValue(sPath & "\@","",1)
  39.   Call RegWriteValue(sPath2 & "\@","",1)
  40.  else
  41.  
  42.   'Allow everybody access
  43.   if RegPathExists(sPath2) then
  44.    'delete old stuff
  45.    iC=RegEnumValues(sPath2)
  46.  
  47.    for i=1 to iC
  48.     Call RegDeleteValue(sPath2 & "\" & RegEnumElement(i))
  49.    next
  50.  
  51.    Call RegDeletePath(sPath2)
  52.   end if
  53.  
  54.   if RegPathExists(sPath) then
  55.    Call RegDeletePath(sPath)
  56.   end if
  57.  end if
  58.  
  59.  
  60.  
  61. End Sub
  62.  
  63. Sub Plugin_Terminate 
  64. End Sub
  65.